William Shakespeare - The Complete Works/William Shakespeare - The Complete Works on CD-ROM.iso/classic/form1a.frm

Text File | 1994-09-07 | 11KB | 449 lines

VERSION 2.00
Begin Form Form1
   BackColor       =   &H00000000&
   Caption         =   "Explore the Library using the mouse."
   ClientHeight    =   5535
   ClientLeft      =   5460
   ClientTop       =   5715
   ClientWidth     =   10425
   ClipControls    =   0   'False
   FillStyle       =   5  'Downward Diagonal
   ForeColor       =   &H0000FFFF&
   Height          =   6285
   Icon            =   FORM1A.FRX:0000
   Left            =   5400
   LinkTopic       =   "Form1"
   Picture         =   FORM1A.FRX:0302
   ScaleHeight     =   369
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   695
   Top             =   5025
   Width           =   10545
   WindowState     =   2  'Maximized
   Begin Menu menu_file
      Caption         =   "&File"
      Begin Menu menu_load
         Caption         =   "&Open..."
         Shortcut        =   ^O
      End
      Begin Menu Menu_save
         Caption         =   "Save &as..."
         Shortcut        =   ^S
      End
      Begin Menu blank
         Caption         =   "-"
      End
      Begin Menu menu_print
         Caption         =   "&Print"
         WindowList      =   -1  'True
         Begin Menu menu_print_bookmarks
            Caption         =   "&Bookmarks..."
         End
         Begin Menu menu_print_Search
            Caption         =   "&Search list..."
         End
      End
      Begin Menu menu_print_setup
         Caption         =   "P&rint setup..."
      End
      Begin Menu blank2
         Caption         =   "-"
      End
      Begin Menu menu_pref
         Caption         =   "&Preferences..."
      End
      Begin Menu menu_exit
         Caption         =   "E&xit"
         Shortcut        =   ^Q
      End
   End
   Begin Menu menu_view
      Caption         =   "V&iew"
      Index           =   0
      Begin Menu menu_book
         Caption         =   "&Book"
      End
      Begin Menu menu_word
         Caption         =   "&Wordprocessor"
      End
      Begin Menu menu_paste
         Caption         =   "&Search list..."
      End
      Begin Menu menu_retracesteps
         Caption         =   "&Retrace steps..."
      End
   End
   Begin Menu menu_search
      Caption         =   "&Search"
      Begin Menu menu_title
         Caption         =   "&Title..."
      End
      Begin Menu menu_simple_search
         Caption         =   "&Simple..."
      End
      Begin Menu menu_complex_search
         Caption         =   "&Complex..."
      End
      Begin Menu menu_field
         Caption         =   "&Field"
         Begin Menu menu_playsearch
            Caption         =   "&Play type..."
         End
         Begin Menu menu_scene_search
            Caption         =   "&Scene..."
         End
         Begin Menu menu_song
            Caption         =   "S&ong..."
         End
         Begin Menu menu_solil
            Caption         =   "So&liloquy..."
         End
         Begin Menu menu_imagery
            Caption         =   "Selected &Imagery..."
         End
      End
   End
   Begin Menu Menu_help
      Caption         =   "&Help"
      Begin Menu help_classic
         Caption         =   "&Using The Oxford Shakespeare"
      End
      Begin Menu help_wordpro
         Caption         =   "Using the &Word processor"
      End
      Begin Menu blank3
         Caption         =   "-"
      End
      Begin Menu menu_about
         Caption         =   "&About..."
      End
   End
End

Sub Animation1_AnimStop (Reason As Long)
End Sub

Sub animation1_Click ()
'For a = 0 To 9
' If anim_mousex > zone_x1(a) - zone_offsetx And anim_mousex < zone_x2(a) - zone_offsetx Then
' If anim_mousey > zone_y1(a) - zone_offsety And anim_mousey < zone_y2(a) - zone_offsety Then
' hide_all
' process_zone (zone_command(a))
'End If
'End If
'Next a


End Sub

Sub Animation1_MouseMove (Button As Integer, Shift As Integer, x As Single, Y As Single)
'x = x / screen.TwipsPerPixelX
'Y = Y / screen.TwipsPerPixelY


'anim_mousex = x
'anim_mousey = Y
'topbar(0).Caption = Str$(x + zoneoffsetx)
'topbar(1).Caption = Str$(y + zone_offsety)

  'command3d1.MousePointer = 4
'For a = 0 To 9
' If anim_mousex > zone_x1(a) - zone_offsetx And anim_mousex < zone_x2(a) - zone_offsetx Then
' If anim_mousey > zone_y1(a) - zone_offsety And anim_mousey < zone_y2(a) - zone_offsety Then
'MousePointer = 5
'topbar(1).Caption = Str$(y + zone_offsety)
'command3d1.MousePointer = 0
'End If
'End If
'Next a

End Sub

Sub Command2_Click (index As Integer)

End Sub

Sub Command3D1_Click (index As Integer)

End Sub

Sub Command4_Click ()
'animation1.Play = True
'animation1.Visible = True
End Sub

Sub Command5_Click ()
'animation1.Play = False
'animation1.Visible = False
End Sub

Sub Form_KeyDown (KeyCode As Integer, Shift As Integer)
Const shiftkey = 1
shiftdown = (Shift And shiftkey) > 0

End Sub

Sub Form_KeyUp (KeyCode As Integer, Shift As Integer)

shiftdown = (Shift And shiftkey) > 0


End Sub

Sub Form_QueryUnload (Cancel As Integer, UnloadMode As Integer)
    'hInstance% = GetWindowWord(hWnd, GWW_HINSTANCE)
    'Ctl3dUnRegister (hInstance%)
End Sub

Sub Form_Unload (Cancel As Integer)
End
End Sub

Sub help_classic_Click ()
  hide_all
Const HELP_KEY = &H101

 form3.CMDialog1.HelpFile = cd_drive + "\LIBRARY\EXE\shakehlp.HLP"
  form3.CMDialog1.HelpContext = 3
  form3.CMDialog1.HelpCommand = 3
  form3.CMDialog1.Action = 6


End Sub

Sub help_wordpro_Click ()
  hide_all
  'Specify the help file to be opened.
  form3.CMDialog1.HelpFile = cd_drive + "\LIBRARY\EXE\shakword.HLP"
  'When WinHelp.exe is executed, help for a specified
  'keyword will be displayed.
  form3.CMDialog1.HelpCommand = 3
  form3.CMDialog1.HelpContext = 3
  'Specify the keyword
  'CMDialog1.HelpKey = "MouseDown"
  'Execute WinHelp.exe
  form3.CMDialog1.Action = 6


End Sub

Sub intro ()

End Sub

Sub menu_about_Click ()
'about.Show
form3.Show
End Sub

Sub menu_book_Click ()
hide_all
view_text (shiftkey)
End Sub

Sub menu_complex_search_Click ()
    success% = SetWindowPos(complexsearch.hWnd, HWND_TOPMOST, 0, 0, 0, 0, TOPFLAGS)

 complexsearch.Show
End Sub

Sub menu_copy_Click ()
'clipboard.SetText (cf_text) = notepad.Text2.SelText
End Sub

Sub menu_exit_Click ()
End
End Sub

Sub menu_field_search_Click ()
 fieldsearch.Show
End Sub

Sub menu_how_Click ()
form3.CMDialog1.Action = 6
End Sub

Sub menu_imagery_Click ()
    hide_all
    ImagerySearch filenum%, linenum%
     If filenum% > 0 Then
    modalviewer.modal.Value = filenum%
    Call view_text(0)
    goto_line (linenum%)
    End If
End Sub

Sub menu_load_Click ()

On Error GoTo leave:
form3.CMDialog1.InitDir = "c:\library"
form3.CMDialog1.Filename = "CDAUTHOR.BMK"
form3.CMDialog1.Filter = "*.bmk,Bookmarks"
form3.CMDialog1.Action = 1
 If form3.CMDialog1.CancelError <> True Then
Open form3.CMDialog1.Filename For Input As #1
bookmark.List1.Clear
Do
Line Input #1, a$
Line Input #1, b$
 bookmark.List1.AddItem (a$)
bookmark.List1.ItemData(bookmark.List1.NewIndex) = Val(b$)
Loop Until EOF(1)
Close #1
End If
Exit Sub
leave:
Close #1
Exit Sub
End Sub

Sub menu_modal_Click ()

End Sub

Sub menu_paste_Click ()
hide_all
List.Show
End Sub

Sub menu_playsearch_Click ()
    'hInstance% = GetWindowWord(hWnd, GWW_HINSTANCE)
    'Ctl3dRegister (hInstance%)
    'Ctl3dAutoSubclass (hInstance%)
'field_search (0)
    hide_all
    ChDrive cd_drive
    ChDir "\library\exe"
    filenum% = playsearch()
    If filenum% > 1 Then
    modalviewer.modal.Value = filenum%
    Call view_text(0)
    End If

End Sub

Sub menu_pref_Click ()
success% = SetWindowPos(preferences.hWnd, HWND_TOPMOST, 0, 0, 0, 0, TOPFLAGS)
preferences.Show
End Sub

Sub menu_print_bookmarks_Click ()
hide_all
form3.CMDialog1.Action = 5
If form3.CMDialog1.CancelError <> True Then
For a = 0 To bookmark.List1.ListCount - 1
printer.Print bookmark.List1.List(a)
'Print #1, Mid$(Str$(bookmark.List1.ItemData(a)), 2, 10)
Next a
printer.EndDoc
End If
End Sub

Sub menu_print_Search_Click ()
hide_all
form3.CMDialog1.Action = 5
If form3.CMDialog1.CancelError <> True Then
For a = 0 To List.List1.ListCount - 1
printer.Print List.List1.List(a)
'Print #1, Mid$(Str$(bookmark.List1.ItemData(a)), 2, 10)
Next a
printer.EndDoc
End If

End Sub

Sub menu_print_setup_Click ()
form3.CMDialog1.Action = 5
End Sub

Sub menu_retracesteps_Click ()
retrace.Show
End Sub

Sub Menu_save_Click ()
On Error Resume Next
hide_all
form3.CMDialog1.InitDir = "c:\library"
form3.CMDialog1.Filename = "CDAUTHOR.BMK"
form3.CMDialog1.Filter = "*.bmk,Bookmarks"
form3.CMDialog1.Action = 2
If form3.CMDialog1.CancelError <> True Then
Open form3.CMDialog1.Filename For Output As #1
For a = 0 To bookmark.List1.ListCount - 1
Print #1, bookmark.List1.List(a)
Print #1, Mid$(Str$(bookmark.List1.ItemData(a)), 2, 10)
Next a
Close
End If
End Sub

Sub menu_scene_search_Click ()
hide_all
'field_search (1)
    ChDrive cd_drive
    ChDir "\library\exe"
      filenum% = scenesearch()
    If filenum% > 1 Then
modalviewer.modal.Value = filenum%
    Call view_text(0)
    End If

End Sub

Sub menu_simple_search_Click ()

success% = SetWindowPos(simplesearch.hWnd, HWND_TOPMOST, 0, 0, 0, 0, TOPFLAGS)
simplesearch.Show
'hide_all
'search_words(0) = InputBox$("Enter the WORD you wish to search for", "Simple Search", "")
'If search_words(0) <> "" Then Call free_text_search("WORD", 0, 0)

End Sub

Sub menu_solil_Click ()
hide_all
sol_search
End Sub

Sub menu_song_Click ()
 hide_all
 song_search

End Sub

Sub menu_title_Click ()

success% = SetWindowPos(titlesearch.hWnd, HWND_TOPMOST, 0, 0, 0, 0, TOPFLAGS)
titlesearch.Show
'hide_all
'Do
'search_words(0) = InputBox$("Enter ONE Word only                                            Enter Author's name to display Author(Biography) and works by that author.                                   Enter keyword from title to display all titles containing this word.                                             Click on OK to start the search", "Title or Author Search", "")
'If search_words(0) <> "" Then
' Call free_text_search("TITLE", 0, 0)
' Else
' successful = 1
' End If


'Loop Until successful = 1
End Sub

Sub menu_word_Click ()
wordp.Show
End Sub

Sub process_zone (zone_c)

End Sub

Sub Timer1_Timer ()
End Sub

Sub Timer2_Timer ()
End Sub

Sub TopBar_Click (index As Integer)

End Sub